thanks every one for replay
I solved that
I hope that help any one search for solution for the same problem
Sub FILL_DATA_FROM_DGV()
Dim pos As Integer = Me.DGView1.CurrentRow.Index
connection.Open()
cmd = New SqlCommand("SELECT FIELD_NAME from TABLE_NAME WHERE ID=@ITEMID", connection)
cmd.Parameters.AddWithValue("@ITEMID", DGView1.Rows(pos).Cells(22).Value.ToString)
Dim dr As SqlDataReader = cmd.ExecuteReader
If (dr.Read()) Then
ComboBox1.Text = dr(0).ToString
End If
connection.Close()
End Sub
Private Sub DGView1_Click(sender As Object, e As EventArgs) Handles DGView1.Click
Try
FILL_DATA_FROM_DGV()
Catch ex As Exception
End Try
End Sub