If lbWorkerFromObj.Items.Count = 5 Then
            MsgBox("Возможно только 5 отвественных сотрудников!", vbOKOnly, "Ошибка добавления отвественного сотрудника")
        Else
            fWorkerSelect.MdiParent = fStart
            fWorkerSelect.Show()
            cmd.CommandText = "INSERT INTO [BuildInspector].[dbo].[TWorker],[id_worker],[id_Obj],[id_WorkerfromDic])VALUES()(<id_worker, int,>,<" + CInt(fBuildAll.ID_Obj) + ", int,>,<" + CInt(fWorkerSelect.IdWorkerfromSelect) + ">, int,>) "
            adapter.SelectCommand.CommandText = cmd.CommandText
            adapter.Fill(ds)
        End If

          cmd.CommandText = "INSERT INTO TWorker (id_Obj, id_WorkerfromDic) VALUES (" + CInt(fBuildAll.ID_Obj) + "," + CInt(12) + ")"
            adapter.InsertCommand.CommandText = cmd.CommandText

Additional information: Приведение строки "INSERT INTO TWorker (id_Obj, id_" к типу "Double" является недопустимым.

  fBuild.cmd.CommandText = "INSERT INTO TWorker (id_Obj, id_WorkerfromDic) VALUES (" & fBuildAll.ID_Obj & " ," & IdWorkerfromSelect & ")"
            'cmd.Parameters.Add(ID_Obj, Int())
            fBuild.adapter.InsertCommand.CommandText = fBuild.cmd.CommandText
            fBuild.adapter.Fill(fBuild.ds)