Kak napisal sql zapros, chtoby znachenija iz
trioh polej skopirovat v odno, polia texstovye,
tablica odna i taze.

dannyj VB kod eto delaet, a kak v SQL server cherez sql-language eto selat?

Option Explicit
Dim cn1 As ADODB.Connection
Dim rs1 As ADODB.Recordset
Dim str, str2, f
Private Sub Command1_Click()
rs1.CursorLocation = adUseClient
rs1.Open "select id,Exp_Adopt_Parents,Exp_CHDWEL,[Exp_ Father],Exp_Foster,Exp_Gay,Exp_Grandpar,Exp_Homeless,Exp_Immig,Exp_Jail,Exp_Military,Exp_Single,Exp_Teenpar,Exp_Youth,Exp_Other from programs", cn1
Do While Not rs1.EOF
For Each f In rs1.Fields
Debug.Print str
If f <> "N/A" Then
If f.Name <> "id" Then
str = str & "," & rs1(f.Name)
End If
End If
Next
str = Mid(str, 2)
If Len(str) < 3 Then str = "N/A"
str2 = "update programs set expert='" & str & "' where id=" & rs1("id")
cn1.Execute (str2)
DoEvents
Text1.Text = rs1("id")
str = ""
rs1.MoveNext
Loop
Text1.Text = "End"
End Sub

Private Sub Form_Load()
Set cn1 = New ADODB.Connection
Set rs1 = New ADODB.Recordset
cn1.Provider = "sqloledb.1"
cn1.ConnectionString = "server=iosif;database=mapping;uid=iosif;pwd=guk;"
cn1.ConnectionTimeout = 3600
cn1.Open
End Sub