位置 0 に行がありません。
If Mode = 0 Then
            Button1.Text = "登録"
            strMode = "登録"
            Me.TextBox1.Text = ""
            Me.TextBox2.Text = ""
            Me.TextBox3.Text = ""
        Else
            Button2.Text = "修正"
            strMode = "修正"
            Sql = ""
            Sql &= "SELECT"
            Sql &= " " & "社員コード" & ","
            Sql &= " " & "社員名" & ","
            Sql &= " " & "フリガナ"
            Sql &= " " & "From"
            Sql &= " " & "KYU"
            Sql &= " " & "WHERE"
            Sql &= " " & "("
            Sql &= " " & "社員コード"
            Sql &= " " & "="
            Sql &= "' " & Mid(CStr(Code), 1, 4) & "'" & ")"

            Dim datatable As DataTable
            datatable = New DataTable
            If Not DbSelect(Sql, datatable) Then
                MsgBox("Access失敗", MsgBoxStyle.Exclamation, "社員マスター修正")
                Exit Sub
Me.TextBox1.Text = datatable.Rows(0).Item(0)←ここに”位置0に行がありません”のエラーが出ます。
Me.TextBox2.Text = datatable.Rows(0).Item(1)
Me.TextBox3.Text = datatable.Rows(0).Item(2)

> 位置 0 に行がありません。
.Rows.Count が 0 だったのに、.Rows(0) にアクセスした為でしょう。
事前に、件数を確認するようにしてみてください。

> > 位置 0 に行がありません。
> .Rows.Count が 0 だったのに、.Rows(0) にアクセスした為でしょう。
> 事前に、件数を確認するようにしてみてください。

ありがとうございます。
.Rows(i)とし、変数iをｆｏｒで制御すれば良いのですね？

> > > 位置 0 に行がありません。
> > .Rows.Count が 0 だったのに、.Rows(0) にアクセスした為でしょう。
> > 事前に、件数を確認するようにしてみてください。
>
> ありがとうございます。
> .Rows(i)とし、変数iをｆｏｒで制御すれば良いのですね？
分かりました。ありがとうございました。