[02/03] Merging

I am trying to merging with this code

Code:

---

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim wrdMailMerge As Word.MailMerge
        Dim wrdMergeFields As Word.MailMergeFields
        wrdApp = CreateObject("Word.Application")
        wrdApp.Visible = True
        Dim dt As New DataTable
        dt.Columns.Add("col1")
        Dim dr As DataRow
        dr = dt.NewRow()
        dr(0) = "Dana"
        dt.Rows.Add(dr)
        wrdApp.Documents.Open(sTemplatepath & "\" & sTemplateFileName)
        '        With wrdApp.Documents(0).MailMerge
        Dim myConnectString As String = "Persist Security Info=False;Integrated Security=SSPI;database=xxx;server=xxx;Connect Timeout=30;User Id=xxx;Password=xx"

        Dim con As New SqlClient.SqlConnection(myConnectString)
        con.Open()
        Try
            With wrdApp.ActiveDocument.MailMerge
                .OpenDataSource(Name:="", _
                                ConfirmConversions:=False, ReadOnly:=False, LinkToSource:=True, _
                                AddToRecentFiles:=False, PasswordDocument:="", Passwordtemplate:="", _
                                WritePasswordDocument:="", WritePasswordTemplate:="", Revert:=False, _
                                Format:=Word.WdOpenFormat.wdOpenFormatAuto, _
                                Connection:=con, _
                                sqlStatement:="select * from solmergedocument", SQLStatement1:="", _
                                SubType:=Word.WdMergeSubType.wdMergeSubTypeAccess)
                .Destination = Word.WdMailMergeDestination.wdSendToNewDocument
                .SuppressBlankLines = True

                With .DataSource
                    .FirstRecord = Word.WdMailMergeDefaultRecord.wdDefaultFirstRecord
                    .LastRecord = Word.WdMailMergeDefaultRecord.wdDefaultLastRecord
                End With

                .Execute(False)

            End With
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
        wrdApp.ActiveDocument.SaveAs("c:\dana.docx")
        wrdApp.Documents.Close()

---

And i am gettting type mismatch in the marked line. What I am doing wrong ?