vb.netを使用してINSERT INTO SELECTを挿入できません。

Question

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
    Con.Open() 
    Dim Str As String = "INSERT INTO db (ID,companyname,companyaddress,companycontact,contactperson,contactnumber,UserLogin,mDate) SELECT @ID,@companyname,@companyaddress,@companycontact,@contactperson,@contactnumber,@UserLogin,@mDate FROM db WHERE Userlogin = @Userlogin" 

    Dim Cmd As New OleDbCommand 
    With Cmd 

     .CommandText = Str 

     .Parameters.AddWithValue("@ID", f1.Text) 
     .Parameters.AddWithValue("@companyname", f2.Text) 
     .Parameters.AddWithValue("@companyaddress", f3.Text) 
     .Parameters.AddWithValue("@companycontact", f4.Text) 
     .Parameters.AddWithValue("@contactperson", f5.Text) 
     .Parameters.AddWithValue("@contactnumber", f6.Text) 
     .Parameters.AddWithValue("@UserLogin", f12.Text) 
     .Parameters.AddWithValue("@mDate", DateTimePicker1.Text) 
     .Connection = Con 

     .ExecuteNonQuery() 
    End With 
    If Cmd.ExecuteNonQuery() Then 
     Con.Close() 
     MessageBox.Show("New Record is Added successfully.", "Record Saved") 
     Call clear() 

    Else 

     MsgBox("Could Not Insert Record!!! ", "Already Entered") 
     Return 
    End If 
End Sub 

Answer 1

私はSELECTを使用する理由を理解していませんか？私はあなたがこれをしたいと思う：

VALUE（@ ID、@会社名、@ companyaddress、@ companycontact、@ contactperson、@会社名、会社名、会社の住所、会社の連絡先、 contactnumber、@ userloginの、@ mDate）

Answer 2

あなたは日付値を渡す必要があります。

.Parameters.AddWithValue("@mDate", DateTimePicker1.Value) 

Answer 3

のExecuteNonQuery（）メソッドを呼び出すときにすべてのエラーを取得するのですか？ あなたのコードをチェックしました。私は2つのコメントを持っています：
（1）コードでExecuteNonQuery（）を2回呼び出しています：
+ ------------------- ----- +
'ファーストコール
.ExecuteNonQuery（）

で終了する' 第二コール
Cmd.ExecuteNonQuery場合は（）すると
+ ------------ ------------ +
目的を2回呼びますか？
2. Cmd.ExecuteNonQuery（）メソッドを呼び出す前に、接続が開かれていることを確認します。

あなたはまだ問題に直面している場合は、私はいくつかの貴重な情報をここに関連する問題が見つかりました： How can I Insert data into SQL Server using VBNet

私はこれが役に立てば幸い！