Данные не записываются в БД

Private Sub create_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles create.Click
        Dim idk, pd, prd As Integer
        Dim dr, dp, dz As Date
        Dim td As String
        Dim sum, ost, pst, ppr As Double
        Dim r As DialogResult
 
        dr = Today
        dp = dr
        dz = DateAdd(DateInterval.Day, 30, dp)
        td = "Открытый"
        ost = sum
        pd = 0
        prd = 0
 
        cd.ShowDialog()
        sum = cd.TextBox1.Text
        pst = cd.TextBox2.Text
        ppr = cd.TextBox3.Text
        idk = cd.Label6.Text
        cd.Close()
 
        If r <> DialogResult.OK Then
            Exit Sub
        End If
 
        Dim conn As New SqlConnection
        Dim c As New SqlCommand
 
        conn.ConnectionString = "Data Source=.\SQLEXPRESS;AttachDbFilename=C:\Users\User\Desktop\Test2\Test\DataBase2.mdf;Integrated Security=True;User Instance=True"
        c.Connection = conn
        
conn.Open()
        c.CommandText = "insert into Договоры([ID Клиента], [Дата регистрации], [Дата пролонгации], [Дата закрытые],  [Суммазайма],  Остаток, [% ставка], [Прошло дней], [Прос дни],[Тип договора], [% просрочки]) values ('" & idk & "','" & dr & "', '" & dp & "','" & dz & "','" & sum & "','" & ost & "','" & pst & "','" & pd & "','" & prd & "','" & td & "','" & ppr & "')"
        
         Dim ds As New DataSet               'эти строки отключил, без изменений 
        Dim da As New SqlDataAdapter(c)  '
        da.Fill(ds, "Договоры")                 '
        DataSource = ds                         '
        DataMember = "Договоры"            '
        c.ExecuteNonQuery()
        conn.Close()
 
    End Sub