Dim cn As String = 【DB接続文字列】
Dim ds As New DataSet()
Dim da As SqlClient.SqlDataAdapter

' 実行する SQL コマンドを設定する
Dim sb As New System.Text.StringBuilder
sb.AppendLine("SELECT ")
sb.AppendLine(" t1.key")
sb.AppendLine(" ,t1.t1_column1")
sb.AppendLine(" ,t2.t2column2")
sb.AppendLine(" ,t2.t2column3")
sb.AppendLine("FROM ")
sb.AppendLine(" tbl1 t1 ")
sb.AppendLine("LEFT OUTER JOIN ")
sb.AppendLine(" tbl2 t2")
sb.AppendLine("ON ")
sb.AppendLine(" t1.key = t2.key")

'DataGridViewに表示
da = New SqlClient.SqlDataAdapter(sb.ToString, cn)
da.Fill(ds, "tbl2")
DataGridView1.DataSource = ds.Tables("tbl2")

da.InsertCommand = New SqlClient.SqlCommand
da.InsertCommand.Connection = cSqlConnection
da.InsertCommand.CommandText = "INSERT INTO tbl2 (t2column2, t2column3) VALUES(@t2column2, @t2column3)"
da.InsertCommand.Parameters.Add("@t2column2", SqlDbType.NVarChar, 255, "column2")
da.InsertCommand.Parameters.Add("@t2column3", SqlDbType.NVarChar, 255, "column3")

da.UpdateCommand = New SqlClient.SqlCommand
da.UpdateCommand.Connection = cSqlConnection
da.UpdateCommand.CommandText = "UPDATE tbl2 SET t2column2= @t2column2, t2column3 = @t2column3 WHERE key = @key"
da.UpdateCommand.Parameters.Add("@t2column2", SqlDbType.NVarChar, 255, "column2")
da.UpdateCommand.Parameters.Add("@t2column3", SqlDbType.NVarChar, 255, "column3")
da.UpdateCommand.Parameters.Add("@key", SqlDbType.Int, 4, "key")

'DB更新
da.Update(DataGridView1.DataSource)