DataSelect()では、DataGridView1にSQLのテーブルからデータを表示させているのですが、
修正の場合に、選択した行の社員コード、社員名、フリガナを、遷移画面のTextBox1、TextBox2、TextBox3に表示させたいのですが....。

>>表示させたいのですが....。
表示させたいのですが、何ですか？
聞きたい事があるなら「...」なんかで省略せずに、もっとちゃんと明確に書いてください。
私も含め、ここを見ている方々は貴方の上司でも先輩でも先生でもお母さんでもありません
貴方の「...」の奥に隠された意思など、知る由もありませんし、文脈等から、貴方の伝えた
いことを汲み取る努力をする義理もありません。


と言うわけで
・何が問題なのか
・その問題を解決するに当たって何を調べたか(参考にしたサイトなどあれば合わせて書いて
おくと良いと思います。)
ぐらいは最低限明確にして頂きたいです。


最後に、貴方にとって非常に有益と思われるサイトをご紹介いたします。
http://www.ranvis.com/articles/smart-questions.ja.html
http://www.hyuki.com/writing/techask.html

質問されのは、構わないのですが、前回の質問の途中を掘っておいて新たに
質問するのは、どうかと思います。
せめて、レスを頂いた分については、返事をしてからにするようにして下さい。

ハンドルネールを変えて投稿した分もですよ。

> 質問されのは、構わないのですが、前回の質問の途中を掘っておいて新たに
> 質問するのは、どうかと思います。
> せめて、レスを頂いた分については、返事をしてからにするようにして下さい。
>
> ハンドルネールを変えて投稿した分もですよ。

はい。ルールも知らずに質問ばかりしていました。これから気を付けます。ありがとうございました。
DataSelextは私が作った関数名です。

> > 質問されのは、構わないのですが、前回の質問の途中を掘っておいて新たに
> > 質問するのは、どうかと思います。
> > せめて、レスを頂いた分については、返事をしてからにするようにして下さい。
> >
> > ハンドルネールを変えて投稿した分もですよ。
>
> はい。ルールも知らずに質問ばかりしていました。これから気を付けます。ありがとうございました。
> DataSelextは私が作った関数名です。
sqlからデータを表示させているのですが。

        If CDbl(Mode) = 1 Then



            Me.TextBox1.Text = Code

            Me.TextBox1.Text = ""
            Me.TextBox2.Text = ""
            Me.TextBox3.Text = ""
            Me.TextBox4.Text = ""

TextBox1.Text = "修正"
            strMode = "修正"
            Sql = ""
            Sql &= "SELECT "
            Sql &= " " & "ID" & ","
            Sql &= " " & "姓" & ","
            Sql &= " " & "名" & ","
            Sql &= " " & "性別"
            Sql &= " " & "From"
            Sql &= " " & "個人情報"
            Sql &= " " & "WHERE"
            Sql &= " " & "("
            Sql &= " " & "ID"
            Sql &= " " & "="
            Sql &= "'" & Mid(CStr(Code), 1, 3) & "'" & ")"
      
            datatable = New DataTable

            If Not dbSelect(Sql, datatable) Then
                MsgBox("Access失敗", MsgBoxStyle.Exclamation, "個人情報修正")
            Else