Having trouble inserting info into sqlce local database

Private Sub BtnLog_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnLog.Click
       Dim SqlConn As New SqlCeConnection
       Dim SqlCmd As New SqlCeCommand

       SqlConn.ConnectionString = ("DataSource = My_Logger.sdf;")

       Try
           SqlConn.Open()

           Dim StrInsert As String
           StrInsert = ("LDate,LTime,HCall,State,County,Band,Freq,Mode,MCall,HRST,YRST,HOper,MOper,RunStart,RunEnd,NetDuration) Values ('" & TextBox2.Text & "','" & CbxState.Text & "','" & CbxCounty.Text & "','" & ComboBox1.Text & "','" & ComboBox2.Text & "','" & ComboBox5.Text & "','" & TextBox1.Text & "','" & ComboBox3.Text & "','" & ComboBox4.Text & "','" & ComboBox6.Text & "','" & TextBox4.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "')")

           Dim Reader As SqlCeDataReader

           Dim SqlNonQuery As String
           SqlNonQuery = "insert into Log  (StrInsert)"


           SqlCmd = New SqlCeCommand(SqlNonQuery, SqlConn)
           Reader = Command.ExecuteReader

           ' SqlConn.Close()

           MsgBox("Data is Saved")
           SqlConn.Close()

       Catch ex As Exception
           MsgBox(ex.Message)
           'Make Sure Connection Is Closed
           If ConnectionState.Open Then
               SqlConn.Close()
           End If
       End Try



   End Sub