See modification of your code below where the parameters are set.
Dim strKDisctBridge As String = "SELECT * FROM KDisctBridge WHERE EeID=? "
Dim tblKDisctBridge As New SqlCommand(strKDisctBridge, Ddataset)
Dim sqlInsert As String = "INSERT INTO KDistrictBridge " & _
"(EeID,DdID,District,CcID,DisctSet) VALUES " & _
"(@EeID,@DdID,@District,@CcID,@DisctSet)"
Try
Dim da As New SqlDataAdapter
da.SelectCommand = New SqlCommand(strKDisctBridge, Ddataset)
Dim ds As New DataSet
da.Fill(ds, "KDisctBridge")
Dim dt As DataTable = ds.Tables("KDisctBridge")
Dim newrow As DataRow = dt.NewRow
newrow("EeID") = 1
newrow("DdID") = 2
newrow("District") = "Able"
newrow("CcID") = 3
newrow("DisctSet") = "Baker"
dt.Rows.Add(newrow)
Dim insertCmd As New SqlCommand(sqlInsert, Ddataset)
insertCmd.Parameters.Add("@EeID",SqlDbType.Int).Value=1
insertCmd.Parameters.Add("@DdID",SqlDbType.Int).Value=2
insertCmd.Parameters.Add("@CcID",SqlDbType.Int).Value=3
insertCmd.Parameters.Add("@District",SqlDbType.Char).Value="Able"
insertCmd.Parameters.Add("@DisctSet",SqlDbType.Char).Value="Baker"
da.InsertCommand = insertCmd
da.Update(ds, "KDisctBridge")
Catch ex As SqlException
MsgBox("error at catch" & ex.ToString())
Console.WriteLine("Error: " & ex.ToString())
Finally
Ddataset.Close()
End Try
End Using
End Sub